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CJACLCNTRL.B32; (1) 
woes ess AB CANGUAGE (BLI 32), 
SAGAS. 2883 
BEGIN 


' 
RHAAAAAAAERERE AREA HEATER RAE AHHH RERETETER ETAT HARARE EERE eee AREER Ee 
'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:; PRANSFERRES NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
” CORPORAT Ox NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* . 


!® DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 
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$4 
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FACILITY: FIIACP Structure Level 2 
i ABSTRACT: 
This module contains the routines to manipulate the Access 


Control Lists and Access Control Entries. This includes all 
of the functionality necessary for the ACL editing. 
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4 4 
? } ENVIRONMENT: 
4 i STARLET operating system, including privileged system services 
4 : and internal exec routines. This routine must be executed 
4 ' in kernel mode. 
4 0 : 
4 0 !e= 
4 ! 
d p 
5 b2 , AUTHOR: L. Mark Pilant, CREATION DATE: 30-Jun-1982 9:30 
é 03 MODIFIED BY: | 
H 05 i v03-032 LMP0306 L. Mark Pilant, 29-Aug-1984 9:24 
; be Disallow ACLs on the index file. 
05 v03-031 ACG0446 Andrew C. Goldstein, 21-Aug-1984 22:01 
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Clean out ACL residue possibly left by other file system 


t 


ti ed in the ORB (in the FCB), 


t before any ACL operations 


versions 
LMPO284 L. Mark Pilant, 25-Jul-1984 14:53 
Move AGL WNIT QUEVE to as ar. Also, only initialize the 
queue t iS being modified. 
LMP0275 L. Mark ei tans. 19-Jul-1984 13:09 
is uninitia ; 
aliz 


If phe ACL queue nin 
it is necessary to initi 
can take place. 


L 
e 


ACG0437 Andrew C. Goldstein 13-Jul-1984 16:43 
Remove ACL_COPYACL call to ACL_BUILDACL (to a higher level) 
L L. Mark Pilant, 27-Apr-1984 14:23 


MP0243 
Allow READACE to bypass BADACL. Also, don't abort ACL attr 
processing if an error occurs; only disallow modifications. 


ACG0415 Andrew C. Goldstein 4-Apr-1984 10:07 
Break out common ACL subroutines; tix space allocation of 
ACL in last header used; fix space left for map pointer 
left in first header. Check for bad ACL on most operations. 


LMP0216 L. Mark Pilant 22-Mar-1984 12:06 
Correct a bug introduced in LMP0174 that caused the DEFAULT 
bit in the ACE "hops to be cleared when propageting the ACL 
for a directory file. Also make rest of global storage based. 
Rename locals to avoid conflicts with globals. 


LMP0210 L. Mark Pilant, 10-Mar-1984 10:36 
Add support for the ACL status field. 
CDS0003 Christian D. Saether 7-Mar-1984 


Don't mark FILE_HEADER dirty in ACL_BUILDACL if 
the checksum was already OK. 


CdS0002 Christian D. Saether 27-Dec-1983 
Use BIND_COMMON macro. Adjust routine and external 
declarations. 

CDS0001 Christian D. Saether 12-Dec-1983 


Move all OWN storage to COMMON module to reduce xqp 
to single image section. 


LMP0174 L. Mark Pilant, 1-Dec-1983 14:25 
Change the name of the routine to presegete default ACEs. 
Also, make it a Little more general purpose in terms of 
the types of propagation it is able to do. 


LMPO159 L. Mark Pilant 30-Sep-1983 9:29 
Use the correct base address when clearing out the ACL 
portion of the file header during a build operation. 


LMP0149 L. Mark Pilant, 16-Sep-1983 11:25 
Make sure the header is turned back to the primary header 
after a build ACL operation. 
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LMPO151 L. Mark Pilant 12-Sep-1983 9:31 
cere Laem and AUDIT ACEs to be positioned at the front of 


LMPO0130 L. Mark Pilant, 28-Jul-1983 10:29 
Correct a bug that caused an accvio if the last header in the 
ov ke was completely filled with map pointers, and an ACL was 
added. 


LMPO105 L. Mark Pilant 24-Apr-1983 22:04 
Correct a bug in the segment size cateulagton when saving 
protected ACEs during a delete ACL operation. 


LMP0102 bs Mark Pilant 18-Apr-1983 16:57 
Return an error if an attempt is made to modify an entry in 
a non-existant ACL. 


LMP0097 L. Mark Pilant, 30-Mar-1983 16:18 
Remove reference to unneeded require file. 

LMPO0088 L. Mark Pilant 17-Mar-1983 12:28 
Add support for reading a single ACE. 

LMP0079 L. Mark Pilant, 11-Feb-1983 8:56 
Correct a problem that caused the system to crash if the 


ACL builder needed to create an extension header. 


LMP0073 L. Mark Pilant, 20-Jan-1983 10:07 

Use the reserved area offset as the upper Limit to the 

size of the ACL segment in the header. Also, modify the 

usage of the ACL context longword in the FIB. (0:23 represent 

fee 9 gaser and 24:31 represents the type of the Last 
ound. 


LMP0068 L. Mark Pilant, 21-Dec-1982 11:57 
Eliminate the code in the ACL building routine that builds 
the in-core ACL from the file headers as it is now done in 
the FCB initialization routine FILL_FCB. 


LMP0064 L. Mark Pilant, 9=-Dec-1982 16:45 
change the manner in which errors are signaled by the ACL 
handling routines. if an error occurs, the ACE size is 
set to zero pelone with the type code), and the error 
code is returned in the flag field. 


LMP0058 L. Mark Pilant, 9-Nov-1982 13:00 
moeliy the ACL building routine to fix some auneety 
conditions. In addition, get the FIB address from the 
correct place in the dispatcher. 


LMP0054 L. Mark Pilant, 25-Oct-1982 17:15 
Add an attribute to return the length of an ACL. 


LANO048 L. Mark Pilant, 5-0ct-1982 8:55 
Modify the ACL building routine to correctly build the file 
header ACL from a null ACL. 
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TRL.B32; (2). 


; 189 1 1 LIBRARY ‘SYSSLIBRARY:LI8.L32'; 

; ig o 5 ] REQUIRE SROSSFEPDER B4e's 

: 1 ; 18) 4 

2 11 § 1 FORWARD ROUTINE 
: 198 1186} ACL“BUILDACL «—: CZNORM: i Build the ACL structures | 
. - : o e . u u u j 
3 138 1185 «#1 ACL_COPYACL : L_NORM ' Propagate ACEs between file versions 

: 13 13 : BUICD_HANDLER =: NOVALUE; ! Exception handler for build 

90 1 i BERMAN QUEUE, ! Initialize ACL queue 
3 01 1190 1 ACL_ADDENTRY, ! Add an Access Control Entry 
3 ¢ 1191 «1 ACL_DELENTRY, ! Delete an AC 

: 504 1198 | ACL=FINDENTRY i Cocate on ACE | 
3 a ° ! Locate an 

: 205 1194 1 ACL_FINDTYPE, ! Locate a specific type ACE 

2 SS LAENStEnchen eal | 
; 208 1199 1 ACLACLLENGS i Return the Length of the ACL 
83H] AREAS fied aorgete A 
3 ° ! Fin number 

; e211 1200 1 ALLUC_PAGED L_NORM, ' Allocate systen dynamic memory 

3 \¢ 1 9} 1 CHECKS L-NORM, ' Checksum the modi tied header 

ay 1 ¢ 1 DALLOC_PAGED L_NORM, ! Deallocate system eynentc memory 

3; 2146 1205 1 EXTEND HEADER L_NORM, ! Extend the present file header 

; 215 1204 1 NEXT_HEADER L_NORM, ! Read next extension header 

oe eS Pd ladle 

; = = ’ . e 

3 318 1207 1 SWITCH. VOLUME L_NORM, ! Set the corrent volume 

: 219 1208 1 MARK_DIRTY L_NORM; ! 


Mark buffer for writeback 
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ACLCNTRL Base =1984 23:49:14 AX-11 Bliss-32 V4.0-74 Page | 
vo%5000 ~3007 138% $3:49 50 YET ix SRCJACL CATAL o3a44 . (3) | 
; 1 ! : ! GLOBAL ROUTINE ACL_DISPATCH (CODE, ADDRESS, COUNT, ACE) : L_NORM = | 
; § 121 1 tee 

; 4 1212 1! 

3 5 : a ! FUNCTIONAL DESCRIPTION: 

; ; 1215 1! This routine is called whenever any ACL processing is to be done. 

3 . 1 1$ 1! The code is checked for validity and if valid, the appropriate routine 

; Ps : : ! } is called to manipulate the ACL's and ACE's. 

: 231 1519 i CALLING SEQUENCE: 

: § ; Y ! ACL DISPATCH (ARG1, ARG2, ARG3, ARG4) 

; 1 é 1 | INPUT PARAMETERS: 

3 5 1 1! ARG]: attribute code to determine the action to perform 

: 12246 1! ARG2: address of the header ACL area, 0 if none 

3 a7 2 2 ARGS: size of the attribute 

; 3 : $ ! ARG4: address of the user Access Control Entry 

: 240 1228 1 | IMPLICIT INPUTS: 

; e ! 4 i IO_PACKET: address of the 1/0 packet for this operation 

; rk 1231 1 | OUTPUT PARAMETERS: 

: 246 1 ¢ 1! none 

3; 245 1 1! 

3 rf 1234 1 ! IMPLICIT OUTPUTS: 

:; 24 1235 1! none 

: 248 1236 1! 

: 249 1237 1 ! ROUTINE VALUE: 

; 250 1238 1! 1 if successful 

; 251 1239 1! 0 otherwise 

3 26 1240 1! 

; @ 1241 1! SIDE EFFECTS: 

3 54 1 4g 1! Appropriate action routine called, possible header modification may 

; 255 1245 1! result. 

; 256 1244 1! 

. for 1245 1 !<- 

; 258 12466 1 

; 259 1247 BEGIN 

; 260 1248 

3 261 1249 2 BIND_COMMON; 

Baas i 

> 264 1 26 ADDRESS : REF BBLOCK, ' Address of the header area 

; 265 ! $7 ACE : REF BBLOCK; ! Address of the user ACE 

; 63 1586 LOCAL 

3 va : 8 LOCAL_STATUS; ! Status of attribute processing 

; 4 ' 28 ! Do some initial checking to see if the request can be blown away up front. 

; 7 1260 2 LOCAL_STATUS = SS$_NORMAL; | 
3 v : ] case -CODE + 1 FROM ATRSC_ADDACLENT TO ATRSC_READACE OF 

: 275 1 8 CATRSC_ADDACLENT, 
, 2 1264 ATRSC_DELACLENT, 
, a 1265 ATRSC_MODACLENT, 


11 


ACLONTRL 1}-5e -1984 X-11 Bliss-32 V4.0-74 Page 7 ACL 
04-000 yaneee=f ORs F3is8ibs | PANT SRE SREr Pa Ae BSF 9° 03) | vO4 
: 27 1 $ ATRSC_FNDACLENT | : 
s ¢r ATRSCTENDACL TYP: | ; 
; 1 1 é IF -PRIMARY _f CBEECBSV_BADACL J THEN LOCAL ST AUS = $S$_BADACL; ; 
; ¢ 1 3 IF .PRIMARY-FCBLFCBSW-FID NUM) EQL FADSCLIN DEXF : 
; 107 AND .PRIMARY FCBCFCBSB FIC _NMX) EOL : 
; 1 4 THEN LOCAL_STATUS = SSS_NOACLSUPPORT; 3 
: $8? 159i — ; 
; BF 03 CATRSC DELETEACLI: | 
: 289 1 8 IF .PRIMARY_FCBCFCB$W_FID_NUM) EQL F DSC_INDEXF ; 
: 290 127 AND .PRIMARY_FCBCFCB$8_FIB_NMX] EQ 3 
; 291 127 THEN LOCAL, STATUS = $S$_NOACLSUPPORT; 5 
BOs wl : 
; 29% 1 Be CINRANGE): 0 ; 
i pe 1 
: 4 ' +H ! Dispatch to the appropriate action routine based upon the attribute code. ; 
; 99 6? IF LOCAL. STATUS ; 
: 301 1289 BEGIN ; 
3 4 1290 4 LOCAL_STATUS = 3 
: 03 91 4 CASE . CODE : 1 FROM ATRSC_ADDACLENT TO ATRSC_READACE OF ; 
: 305 1 38 4 CATRSC_ADDACLENT): F 
3 308 $e 5 BEGIN 3 
: 307 1295 § IF NOT .BBLOCKCPRIMARY FCBLFCBSR ORB], ORB$V_ACL_QUEUE ; 
; 308 1296 3 THEN ACL_INIT_QUEUE (P PRIMA ARY FCB FCBSR_ORBJ)> ; 
: $02 1297 If . CURRENT_FYBCFIBSL_ACL_STATUS : 
: 310 1298 5 THEN ACL ADBENTRY CPRIMARY® FCBEP CBSL -ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX], .COUNT, .ACE) 3 
: 311 1299 5 ELSE 1 : 
en a = 7 
: 314 1308 4 CATRSC_DELACLENT): : 
; 315 1303 4 IF-NOT .BBLOCKCPRIMARY_FCBCFCB$R_ORB], ORB$V_ACL_QUEUE) ; 
; 316 1304 4 THEN SS$_ACLEMPTY : 
: 317 1305 3 ELSE (IF~.CURRENT_FIBCFIBSL_ACL_STATUS) : 
: 318 1306 HEN ACL_DECENTRY (PRIMARY_FCBCFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX], .COUNT, .ACE) : 
3 18 } Bf ? LSE 1); : 
: 321 1309 4 CATRSC _MODACLENT): : 
; ¢ 1310 4 F-NOT ,BBLOCKCPRIMARY_FCBLFCB$R_ORB], ORBSV_ACL_QUEVE) : 
: 357 i312 8 ese ssi ~ CURRENT. FIBCFIBSL_ACL STATUS) : 
: 5 1 18 é EN ACL_MOBENTRY (PRIMARY_FCBCFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX], .COUNT, .ACE) : 
; $ : \% ? ELSE 1);7 : 
: 328 1 16 4 CATRSC _FNDACLENT): : 
: 329 4 FEN T. gOSLOCKCPRIMARY. FCBCFCBS$R_ORBJ, ORB$V_ACL_QUEUE) ; 
; 1 19 4 ELSE ACLIFINDENTRY (PRIMARY_FCBCFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX], .COUNT, .ACE, 0); ; 
; Hi 1 i 4 CATRSC _FNDACLTYP): : 
: 334 1322 4 IF"NOT .BBLOCKCPRIMARY_FCBLFCBSR_ORBJ, ORBSV_ACL_QUEUE) : 
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Ae anes ery eee a aka 
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-$ep-1984 1 AX-11 Bliss-32 V4.0-74 Page 
13-Sen-1984 G3igaior FONG BE SREC BR Mh B 3 . 
THEN SS$_ACLEMPT 
ELSE ACL“FINDTY Pe (PRIMARY _FCBCFCBSL_ACLFLJ, CURRENT_FIBLFIBSL_ACLCTX], .COUNT, .ACE, 0); 
CATRSC_DELETEACLI: 
IF“NOT .BBLOCKCPRIMARY_FCBLFCBSR_ORBJ, ORBSV_ACL_QUEUE] 
THEN 5$$_ NORMAL 
ELSE (IF~. CURRENT FIBCFIBSL_ACL STATUS) 
THEN ACL DECETEACL (PRIMARY_FCBLFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX)) 
CATRSC _READACLI: 
F "NOT BBLOCKCPRIMARY _FCBLFCBSR_ORB), ORB$V_ACL_QUEUEJ 
THEN SS$_ACLEMPTY 
ELSE ACLIREADACL (PRIMARY_FCBCFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX], .COUNT, .ACE); 
H): 


CATRSC_ACLLENGTH 
am. NOT .BBLOCKCPRIMARY _FCBCFCBSR_ORBJ, ORBSV_ACL_QUEUEJ 


BEGIN 
CHSFILL (0, .COUNT, .ACE); 
SS$_NORMAL 

ELSE ACL_ACLLENGTH (PRIMARY_FCBCFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTXJ, .COUNT, .ACE); 
CATRSC -READACE): 

IF {. gOSLOCKCPRIMARY, FCBCFCBS$R_ORBJ, ORBSV_ACL_QUEUE) 


THEN. SS$ 
ELSE ACLIREADACE (PRIMARY_FCBCFCBSL_ACLFLJ, CURRENT_FIBCFIBSL_ACLCTX], .COUNT, .ACE); 


CINRANGE]: SS$_BADPARAM; 


TES); 
END; 
F .CURRENT_FIBCFIBSL_ACL_STATUS) 
HEN CURRENT _F IBLF str ACE_ STATO) = .LOCAL_STATUS; 
ETURN 1; 
ND; ! End of routine ACL_DISPATCH 


ACLCNTR 
\v04-000\ 


ACL INIT QUEUE, ACL ADDENTRY 
ACL DELERTRY , ACL_MODENTRY 
ACL“FINDENTRY, ACC =F INDTYPE 


“D L p 
ACLZACLLENGTH, ACL-READACE 
ACLLOCATEACE, ALLOC PAGED 
CHECKSUM, DALLOC PAGED 
EXTEND HEADER NEXT HEADER 
READ_HEADER, SEARCH-FC 
SW1TCH_VOLUME, MARK “DIRTY 


Ss 


saivaicasieanaanihietdieinaaees 


11 
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W2ree=T8Re T3:98:h5 HANG Bilger Be Me -B53% 9 035 
.PSECT S$CODE$,NOWRT,2 ; 
O1FC .ENTRY ACL_DISPATCH, Save R2,R3,R4,R5,R6,R7,RB : 1209 ; 
7 08 AA 9E ti MOVAB S(BXsE) R : 1387 ; 
8 10 AA 3 0 MOVAB 6(BAS , RB F : 
6 01 D A MOV #1, LOCAL_STATUS : 1260 ; 
15 04 AC CF p CASEL ob #30, #8 + 1261 ; 
901 01 12 1$: <WORD 2$-1$,- : ; 
O1F 1 OO1A $-1$.- : ; 
03 0022 $-1$.- : : 
$-1$.- : ; 
$-1$.- : : 
$-1$,- : : 
4$-1$.- : : 
4$-1$,- : : 
4$-1$ : : 
50 67 00 000 4 28: MOVL  (R7), RO + 1269 
22 A 3 00 i TSTB 34(R0) : 
56 OE3A BF 3C 0002C MOVZWL #3642, LOCAL_STATUS : 
50 67 00 00031 3$ (R7), RO + 1277 
01 24 Ad B1 000 CMPW 3 s36(RO), #1 : 
OA if 0038 BNEQ 4$ : 
29 AO 9 OO3A TSTB 41(R0) : 1278 
§ 12 0030 BNEQ 4$ : 
56 22BC oF 3¢ 0003F MOVZWL #8892, LOCAL_STATUS + 1279 
0 : ; 90044 4$: BLBS LOCAL _STATUS; 5$ : 1287 
0163 31 00047 BRW 1$ ; 
1€ 04 AC CF O004A 5$ CASEL CODE #30, #8 + 1291 
003F 001 O004F 6$ <WORD 7$-6$,- : 
00¢B OOAA 0057 9$-6$.- ; 
0137 0005F 10$-6§,- ; 
12$-6$.- : 
14$-6$.- : 
17$-6$.- F 
20$-6$,- 3 
g38-68.~ ; 
7$-6$ 3 
50 67 DO 00061 7$ MOVL _(R7), RO > 1295 
63 AO 01 £0 90064 BBS #1, 99(RO), 8$ ; 
58 AO 9F 00069 PUSHAB 88(RO) : 1296 
00006 CF 01 FB 0006C CALLS #1, ACL_INIT_QUEUE : 
50 68 DO 00071 8s MOVL (RB), RO : 1297 
46 4 Ao 59 074 BLBC 52(RO), 118 : 
7E C AC ?D 00078 MOV COUNT -(SP) : 1298 
0 ad 9F 0007C PUSHAB 48(ROS : 
67 00000080 8F C1 0007F ADDL3 #128, (R7), -(SP) : 
00006 CF 4 Fe 087 CALLS #4, ACL_ADDENTRY : 
69 11 0008C BRB 13§ F 
50 7 00 0008E 9$ MOVL  (R7), RO : 1303 
6t Ad 1 €1 BBC #1, $9(RO), 15$ ; 
5 ra.) D9 %6 MOVL (RS) : 1305 
¢1 AO 5 BLBC 3 =._:« $2. RO), ; 
E C ac ?D 0009D ova FOUNT -(SP) > 1306 
6 AO 9F OOOA1 PUSHAB 48(ROS F 
67 000000 F C1 OO0A4 ADDL3 #128, (R7), =(SP) : 
00006 CF 4 FB OOOAC CALLS #4, ACL_DELENTRY ; 
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FIIX. she dae CLCNTRE -B32; 


28, (R7), =(SP) 
ACL _MODENTRY 


) 
“" $9%2o), 21$ 
OUNT, =(SP) 
sai (RB), =(SP) 
§ cn 


§, -(SP) 
3 ACL_F INDENTRY 
(R7) 


RO 
$9(RO), 218 


RO 
$9(RO), 24$ 
6), 24$ 


(R7), =(SP) 
het _DECETEACL 


128, (R75, 
Sig kee _READACL 


1) 0800) 25$ 
2 (SP), #0, COUNT, @ACE 
g LOCAL. STATUS 
ihe ing)” » sp) 
§ (SP) 
a heu® ibe airy 
if ) 
(RO), 29 
‘ #3489 rota _STATUS 
COUNT, -(SP) 
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arco t88e Fidosor YETTA Be seer ea he -835¢9 - a vou 
7E 68 0 ¢1 00199 ADDL 44g (R8) (SP) ; 
7E 67 00000080 BF C1 190 ADDL 8, (R75, -(SP) : 
00006 ct 4 FB OOIA CALLS as, ACL _READACE : 
6 g Dd 1AA 303: MOVL LOCAL_STATUS 3 
50 68 DO OO1AD 31$: MOVE 8s, + 1358 
04 34 ad €9 00180 BLBC soir (RO), 328 : 
34 Ad 56 DO 001B4 MOVL LOCAL  erhtus. 52(RO) + 1359 
50 01 pO 00188 328 MOVL #1, RO 3 1361 
04 00188 RET + 1363 


; Routine Size: 444 bytes, Routine Base: $CODE$ + 0000 
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HEReoctSQe 3:48:05 UML SRLRET Ea WSs 
GLOBAL ROUTINE ACL_BUILDACL (FIRST_FCB) : L_NORM = 

lee 

FUNCTIONAL DESCRIPTION: 

This routine, builds the file header ACL from the in core ACL. 

It should be noted that during the time that the headers are being 

hh no ie the system crash, the ACL in the headers will be 


CALLING SEQUENCE: 
ACL. BUILDACL (ARG1) 


INPUT PARAMETERS: 
ARG1: Address of 
PRIMARY_FCB 


IMPLICIT INPUTS: 
none 


the first FCB segment (this is usually the same as 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
0 otherwise 


SIDE EFFECTS: 
The file headers are modified to reflect the state of the current 
in core ACL. 
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FIRST_FCB : REF BBLOCK; 
BIND_COMMON; 
LOCAL 


Address of the first FCB segment 


ACL_POINTER 
ACE_POINTER 


ACL_LENGTH, 
FCB 


BBLOCK, 
BBLOCK, 


' Pointer to current ACL segment 
F BBLOCK, 

x 

F 

F 


Pointer to current AC 

Address of current ACE in header 
Size of header segment ACL 

FCB segment adress 

HEADER Address of primary header 
NEW_HEADER Address of extens gn header 
FIRST_ACE; True if first ACE in header 


! Set up the exception handler in case the header reading routine have trouble. 
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BBLOCK, 
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Page 
° 0-74 (4) 
12 +49: AX-11 Bliss-32 V4. : | 
lesseert2 2 93:90:07 EPYTX! sReJARLewrat v03e: 
- e j= a 
ACLCNTRL | 
-000 
: 14 BEGIN, 
: OR 14 orp BULLS HANDLER; pone | 
: END; 7 ; 
: 12 3 ae the current file header in case it has been m 
; 4 14 ! Checksum | 
; 83 1? IF .FILE_HEADER NEQ 0 on 
; 44) 16 THEN SUM (.FILE_HEA 
44 HEM MARE BERT CcFITE-HEADER?. 
: 48 123) THEN PARK LDIRTY (.FILE. 
ues 1 ¢ ! Get the first file header. — 
3 44 THEN RETURN 1; 
ig Oe Pain “ABEL EP coun ones nate, tu 
; 14 DER = HEADER = - ‘ t up on the 
; 449 14 § NEW_HEADER version. Se 
: - he in core t header, 
: aay 1239 $1 Build the file Q’the ACL Listheads Note Bat koneth enn pointer, 
: 45 1439 i first header and the t least one maximal m (directories, etc. 
; 138 rere | i we guarantee Pills: esssest by yl De, 
188 1208 depend en’the availability of th = ssottende daar’ 
43? 1228 $ IF .FIRST_FCBEFCBSL_ACLFL] NEGA FIRST. ° 
; 458 1446 2 THEN FLD: 
; 459 FCBCFCBSL_ACLFLJ; 
: 460 1 ACE-POINTER - Act ROTWTERCACLSCSFISTA RSOFF SETI; 
; 1449 FH2$B_ACOFFS $B_RSOFFSET) = 
; 46 1450 RE EENGTA ont HEABERTFHZSB rr eeta 
; 46 1451 4 — ACL_LENG “HEADERCFH2$B MPO 1) * 2; ; 
; ‘ MAP_ INUSE ; LENGTH; 
: oes i ae SH AEADERCE ROSE RSOFFSETI #2 0- ACL 
: 466 1434 TF. .HEADERCFH2SB;MAP_INUSED LSGU FMSSC_ x 
: 467 1455 | a “a = INUSEJ*2, .ACE); 
: 468 3 THEN - .HEADERCFH2$B MAP MAP_iNUSE}*2); 
3; OS 1437 ACE = CHSFILL (0, LENGTR = CFMZSC_LENGTHS © HEADEREF HOSE. 
: an 1338 ¢ ACL_LENGTH = .ACL_L 
: 4? 1460 MAGE = 1; t free space | 
: ars 1263 setae headers until we find one with sufficien 
. e 
| He HEE. 3s scan tnrough the neva 
: oh 1686 WHILE 1 st 
: 479 146 8 ] LEQU .ACL_LEN 
: a8 be UNTIL .ACE_POINTERCACESB_SIZE | 
* dO : 
i 4 147 FIEADERTEMSSVBADRCLY = 1; 
; 485 1498 CHECKSUM (HEADER); | 
: 3 sere Oa eines <°HEXT HEADER (HEADER, . FCB); 
; 4 
; 1476 IF TNEW_HEADER EOC 
2 330 147 


14-Sep-1 :30:07 FI1X.SRCJACL 


491 4 THEN NEW HEADER = EXTEND_HEADER (.CURRENT_FIB, .HEADER, .FCB); 
49 4 ADER = cat ts EADER; 

49 4 FCB = Loexee 1; 

494 4 HEADERCEASS B° *ACOE FSET) = gittap ERCFH2$B_RSOFFSETI; 

495 4 ACL_LENGTH =~(.HEADERCFH2$B_RSOFFSET] = 

496 4 HEADERCFHOSB_MPOFF SET] = 

49 4 HEADERCFH ier AP_INUSEJ) * 3: 

498 4 ACE = WEARER + .HEADERLFH2SB_RSOFFSET) * 2 = .ACL_LENGTH; 
499 4 FIRST. ACE ' First ACE in header 


! Having found a header with free space, mark it as belonging to the ACL. 
IF .FIRST_ACE 
THEN 


BEGIN 
HEADERCFH2$B_ACOFFSET] = .HEADERCFH2$B_RSOFFSET] = .ACL_LENGTH/2; 
FIRST_ACE = 0; 


PUPVSVSVSPTSVSV SSSI 


! Copy the ACE into the header and advance the pointers. 


CHSMOVE (ACE. POINTERCACESE. Bibra POINTER, .ACE); 
ACL_LENGTH = .ACL etENGTH - Boe etiRcacese S126}; 

ACE-POINTER = .ACE POINTER * Chee _POINTERLACESB. SIZE); 

IF TACE_POINTER MOAT ati _POINTER™+ .ACL RDOINTERCACL SU. SIZE) 
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FLINK 
CBSL_A ACL rua THEN EXITLOOP; 
LIST 


END; 


! Recover any unused ACL space from this header by sliding the ACL down 
9 Sed one of the header. Clear the odd byte at the end of the ACL 
ere is one. 


ELSE 
BEGIN 


! If there is not ACL associated with the file, and this is the first (or only) 
i file header, clean it out properly. 


CHSFILL (0, (.HEADERCFH2$B_RSOFFSE At - 
-HEADERLFH2$B_ACOFFSET]) * 2, 
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IF TESTBITSC (ACL_LENGTH<O,1>) THEN (.ACE)<0,8> = 0; 
CHSMOVE ((.HEADERTFH2$B_RSOFFSET] - .HEADERCFH2$B_ACOFFSETJ) * 2 - .ACL_LENGTH, 
.HEADER + .HEADERCFH2SB_ACOFFSET) * 2, 
ADER + .HEADERLFHOSB_ACOFFSET] * 2 + .ACL LENGTH); 
CHSFIL ACL LENGTH, .HEADER™+ ,HEADERCFH #9. ACOFSE! 
HEADER FA $5" AC OFFSET = [HEADERCFH2$B_ACOFFSET]~+ .ACL_LENGTH j 2; 
HEADER FHOSV™ BADACL = 1; 
CHECKSUM (. HEADER) 
BARK. DIRTY ( (HEADER) : 
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-HEADER + .HEADERCFH2SB_ACOFFSET] * 2); 
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! If there are no extension headers, also re-adjust the ACL offset. If there 
' are extension headers, leave the Act offset alone as modifying it would 
! corrupt the map information in the following headers. 


IF .HEADERCFH2$W_EX Abert EQL 0 AND ht a $s , tennis EQL 0 
re se wh $6 ACOFFSET = ,HEADERCFH2SB_RSOFF SETI; 


KSUM_ (HEADERS 
ARK DIRTY (HEADER) ; 


! Clean out the ACL from any remaining headers. 


PUPS EBS BB BB BE AA 
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BEGIN 
NEW_HEADER = NEXT cho. (HEADER, .FCB); 
66 FCB = .FCBCFCBSL_EXFCBI: 
67 IF .NEW_HEADER EGL 0 THEN EXITLOOP; 
68 HEADER = ,NEW HEADER: 
69 CHSFILL (6, (CHEADERTEH $B_RSOFFSET) - 
70 EADERLFH2$B_ACOFFSETJ) * 2 
71 ER + .HEADERCFH2$B_ACOFFSETI * 2): 
re HEA SET) = .HEADERCFH2$B_RSOFFSETI; 
7 CHECKSUM (. HEADER); 
74 MARK_DIRTY (.HEADER); 
Le END; 
77 ! Now that all of the headers have been written, 9° back and clear the BADACL 
78 ' bit. This is pocescety to avoid a corrupted ACL should the system crash 
6 4 ! while the headers are being re-written. 
81 IF .HEADERCFH2$W_SEG_NUM) NEQ 0 
5¢ THEN NEW_HEADER = READ_HEADER (0, -FIRST_FCB) 
8 = HEADER; 


ELSE NEW-HEADER 
00 


HEADER = .NEW HEADER; 
HEADERCFH2$V_BADACL) = 0; 
CHECKSUM (.HEADER); 
MARK_DIRTY (HEADER); 
NEW READER = NEXT_HEADER (.HEADER, 0); 
UNTIL .NEW_HEADER EQL 0; 
! Get back the primary file header. 
j 


IF .HEADERCFH2$W_SEG_NUM] NEQ 0 
THEN READ_HEADER™(0,~.FIRST_FCB); 


RETURN 1; 
END; ! End of routine ACL_BUILDACL 
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» ACL LENGTH 
, (RCE_POINTER), ACL_LENGTH 


NEW_HEADER 
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), ACL_POINTER 
ACE_POINTER 
2 (HEADER) 
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ER) 
(HEADER) C 
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LENGTH) CROJ 
RST _ACE 
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ACLCNTRL 18.22 =1984 23:49: AX-11 Bliss-32 V4.0-74 Page 18 
yO4s000 12-8 08-1 3c 13:49:09 Herik sRedacLenTe B35, 9 a) 
7 197 ; 
56 198 DIVL2 #2, R6 : 1522 
0 A 1 ADDBe RG, g (HEADER) : 
A9 19F BISB2 of (HEADER) + 1523) 
1 1A3 BRB 4$ t 1524) 
1 03 AJ 9A OO1A5 12$:  MOVZBL 2(HEADER), R1 + 1534 
0 AD 9A 001A9 MOVZBL 3(HEADER). RO : 
31 C2 OO1A SUBL RI. RO : 
‘ yh ie ig mouad (AEABER) CRI R + 1535 
50 00 6E 09 C 187 movcS #0, (SP), #0, Re, (R6) : 
OE 8 : 18 TSTW 14(HEADER) + 1541 
OA 1C BNEQ 14$ : 
13. ad «95 OO1C TSTB 19(HEADER) : 
05 12 1¢ BNEQ 14$ : 
02. Ad 03 Ad 90 001C7 13$:  MOVB 3(HEADER), 2(HEADER) + 154 
59 DD OO1CC 14$: | PUSHL HEADER + 154 
00006 CF 01 FB ice CALLS #1, CHECKSUM ; 
9 DD 001D PUSHL HEA + 1544 
00006 CF 1 FB 00105 CALLS #1, MARK_DIRTY : 
0A00 F 6B aie PUSHR #*M<RI,RT1> : 1552 
00006 CF ; FB 1DE CALLS #2, NEXT_HEADER ; 
08 AE D iE MOVL RO, NEW_READER : 
58 OC AB DO 001E7 MOVL 12¢FCB)> FCB : 1553 
08 AE 05 OO1EB TSTL NEW_HEADER > 1554 
1E 1 OIE BEQL 15$ ; 
59 08 AE 00 OOF MOVL §§ NEW_HEADER, HEADER : 1555 
1 0¢ AS 9A OO1F4 MOVZBL g (HEADER), : 1557 
0 03 Ad 9A OF MOVZBL 3 (HEADER), F 
0 51 C2 0 1FC SUBL2. R1, RO ; 
0 02 ch O1FF MULL2 #2, RO ; 
6 6941 3E 00202 MOVAW  (HEADER)CR1], R6 : 1558 
50 00 6E 00 2¢ i 06 MOVCS #0, (SP), #0. RO, (R6) ; 
B9 11 0020C BRB 13$ : 1559 
04 Ad 83 0 OF 15$: STW 4 (HEADER) : 1568 
10 13 0021 BEQL 16$ ; 
04 AC DD 00213 PUSHL FIRST_FCB : 1569 
7E 04 00 18 CLRL. = (SP) ; 
00006 CF Q FB 0021 CALLS #2, READ HEADER ; 
08 AE 6 p 0 1p HOVL R NEW_READER ; 
08 A 9 06 ; 168: MOVL § HEADER, NEW_HEADER : 1579 
5 08 A p 17$: = MOVL NEW_HEADER HEADER : 157 
35 Ad A B BICB2 #8, ~53(HEADER) : 1574 
DD F PUSHL : 1575 
00006 CF 1 FB 1 CALLS #1, CHECKSUM ; 
9 DD 00 PUSHL HEADER + 1576 
00006 CF 1 FB CALLS #1, MARK_DIRTY ; 
3 D D CLRL 0s = §P) : 1577 
59 DD F PUSHL HEADER : 
00996 CF 08 F 41 CALLS #2, NEXT_HEADER ; 
08 AE D 46 MOVL RO. NEW_READER ; 
dB 1 4A BNEQ =‘ + 1579 
04 A é 4C TSTW  4(HEADER) > 1583 
OA AF BEQL 18S ; 


> 
wa 


i 


ee ed ed ed td dd ed wd td =) = 


mgECHTRL ' “BEc]3E4 G3:48:05 — HPMGLRLARECHR M0534 


As F 3 I -FCB 
0000G CF rf $F) AD_HEADER 
iY Sies, ABMS agpaveme 
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M 


H 685 } 96 } GLOBAL ROUTINE ACL_COPYACL (OLD_FILE_FCB, NEW_FILE_FCB, OPTION) : L_NORM = 

; 605 1591 1 S44 

3 ¢ 1 3 1 ! 

; i : 37 ! FUNCTIONAL DESCRIPTION: 

; 609 1595 1! This routine propagates the ACEs from one file to another. This 

; 610 1 38 1! is done in one of several ways: propagate everything, propagate 

>; 611 1397 1! only directory default ACEs, or propagate everything except ACEs 

3 ol¢ 1338 1! marked as NOPROPAGATE. 

; 61 1599 1! 

; 614 1990 1 ! CALLING SEQUENCE: 

; oi7 et : ACL_APPLYDEF (ARG1, ARG2, ARG3); 

; 617 1808 1 ! INPUT PARAMETERS: 

; 618 1606 1! ARG1: address of the source file FCB 

; 619 1605 1! anes: gceress of the created file FCB 

; 620 +] 1! ARGS: 0 = copy everythin 

; 621 1607 1! 1 = only default ACEs 

3 6 ¢ 1608 1! 2 = all except NOPROPAGATE ACEs 

3 § 1609 1! 

: 624 1610 1 ! IMPLICIT INPUTS: 

; 625 1611 1! none 

; 6 $ 1ol¢ 1! 

: © 1615 1 ! OUTPUT PARAMETERS: 

; 628 1614 1! none 

: 629 1615 1! 

; 6350 1918 1 ! IMPLICIT OUTPUTS: 

3 $3) 1617 1! none 

3; 6 ¢ 1618 1! 

3 63 1619 1 ! ROUTINE VALUE: 

; 634 1620 1! 1 if successful 

; 635 1621 1! 0 otherwise 

; 636 16 ; s 

; 637 16 1 ! SIDE EFFECTS: 

; 638 1624 1! An ACL for the created file is built using any applicable ACE's 

: 639 1625 1! from the source file. The file header for the created file is 

: 640 1626 1! then updated to refect this default ACL. 

; 641 1627 1! 

; ek: 1628 1 !-- 

; 646 1629 1 

3 644 1630 BEGIN 

; 645 1631 

; oe8 1636 MAP | 
; 64 16 OLD_FILE_FCB : REF BBLOCK, ' Address of the directory FCB 
; O68 1 : NEW _FILE_FCB : REF BBLOCK; ! Address of created file FCB 
: 650 16 $ BIND_COMMON; 

3; 651 16 

3 636 16 : LOCAL 
; 65 16 ACL_POINTER : REF BBLOCK, : pirecsery ACL cognent address 
3: 654 1640 ACL_LENGTH, ! Length of the AC 

; 655 1641 ACL_AREA : BBLOCK CMAX_ACL_SIZE], ! buffer to build ACL segment 
$ O38 1986 NEW_ACL : REF BBLOCK, ' Address of file ACL segment 
3 o2? 98 ACE_POINTER : REF BBLOCK; ! Address of current ACE 

; 659 1645 ! Clean out any existing ACL on the target file. 


ee a a a a a es a a a a i a a a ae a es es es a a ae ae a a a a ae a ee a ae ee a a 
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oO 
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» 
a 


stesgesee bc 


as. 
ODONOULS WN OO 


PAPO AAOAAAAAOAAAO 


AAAAACAAN 
ANNAN 
SS SSSSSSSISSSAAaS 


SESEe 
wr 

S233 

DOONAVUS WN (OOO NAOUE WN OOONO 


S35 


AAAS 
00000 
23S 

C900 Co Co C808 SII NNN NN 


co 
Cd SOU EW OOOO NAME WN 0 OONOUS WN Oo 


PAEAAAAAAAAA AA AAA AAA AAAAAAA AA AO 
DOOOOOOOOO0®O®® 


3 


DVDR AAA A AX NNN NA AAA AE BEE WWIII BEB EP WIIInononoronefnononornp 
_ 
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AANO 


ooo 


mo 


ACL_DELETEACL (NEW_FILE_FCBCFCBSL_ACLFLI, 0); 
: See if there is any ACL on the source file that must be propagated. 

IF .OLD_FILE_FCBCFCBSL_ACLFLJ EQLA OLD_FILE_FCBCFCBSL_ACLFL] THEN RETURN 1; 
! See if this is a simple copy operation. 
IF .OPTION EQL 0 

THEN 


BEGIN 
ACL_POINTER = .OLD_FILE_FCBCFCBSL ACLEL 
UNTIL -ACL_POINTER-EQLA-OLD_FILE_FCBCFCBS$L_ACLFL 
EGIN 
NEW ACL = ALLOC_PAGED (.ACL_POINTERCACLSW_S1 ACL_TYPE); 
CHSMOVE (.ACL POINTERCACL Susi z6) . 
INSQUE (.NEW_ACL, .NEW FILE FCBCFCB$L_ACLB 
ACL POINTER = -ACL_POINTERCACLSL_FLINRI; 


END 
ELSE 
BEGIN 


! Scan through the source file's ACL and propagate the desired ACE types. 
ACL Te teat NE PEEL ELL: 


ACL-LENG 
DO 


BEGIN 

ACL_POINTER = .ACL_POINTERCACLSL_FLINK); 
ACE-POINTER = ACL_POINTERCACLSL_CISTI; 
UNTIL -ACE_POINTER GEQA .ACL_POINTER + .ACL_POINTERCACLS$W_SIZE] 


BEGIN 
IF (.ACE_POINTERCACESV_ DEFAULT] AND .OPTION EQL 1) 
a ~ACE_POINTERCACESV_NOPROPAGATE] AND .OPTION EQL 2) 


A SIZE], 

ACL_POINTER, .NE@_ACL); 

L LJ); 

BEGIN 

UF Gg ACL LENGTH + .ACE_POINTERCACESB_SIZE] GTR MAX_ACL_SIZE 


BEGIN 
NEW ACL = ALLOC_PAGED (ACLS$C_LENGTH + .ACL LENGTH ACL_TYPE); 
CHSMOVE (.ACL_LENGTH, ACL_AREA, NEW_ACLCACCSL_LIST)); 

NEW _ACLCACL$W°SIZE) = ACL SC LENGTH = ACL LENGTH; 

INSQUE (.NEW_ACL, .NEW_FILE-FCBCFCBSL_ACLBLJ); 

ACL LENGTH ="0; 


CL_AREA, 7ACL_LENGTH;; BYTE): 


IF .OPTION EQ 
THEN BBLOCK CVECTOR CACL AREA, .ACL LENGTH: « BYTE] 
ACL_LENGTH = .ACL_LENGTH + .ACE_POIRTERCACESB_ SIZE); 


ND; 
ACE_POINTER = .ACE_POINTER + .ACE_POINTERCACESB_SIZE); 


CHSMOVE (.ACE_POINTERCACESB_SIZEJ, .ACE_POINTER, 
vecTOR CACL 
ACESV_DEFAULT] = 0; 
| 
} 


eee__—_—— rE hh poo 
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ACLCNTRL 18-56 -1984 23:49:1 AX-11 Bliss-32 V4.0-74 
YO4s000 127808-1 3b 93:49:09 LP TIX. SRCJACL CNTRL.B32; 
; 717 1703 4 END; 
; rig 1704 4 END 
; ah) 7 5 UNTIL .ACL_POINTERCACLSL_FLINK] EQLA OLD_FILE_FCBCFCBSL_ACLFLI; 
; 721 17 5 IF .ACL LENGTH GTR 0 
ie: § 1708 THEN 
a 1709 4 BEGIN 
: 726 1710 4 NEW_ACL = ALLOC_PAGED (ACLSC_LENGTH + .ACL sO TSta ACL_TYPE); 
; 725 1711 4 CHSMOVE (.ACL_LENGTH, ACL ait new gActcact f)); 
a. § 21 4 NEW_ACLCACL$W°SIZE) = ACL ENGTH L ALENT 
ee 1713 4 INSGUE (.NEW_ACL, .NEW_F Tle “FCB reps *ACLBL ); 
: 7 8 1714 ND; 
: 7 1715 END; 
: 730 1716 
: 731 171 1 
: 732 1718 1 END; ! End of routine ACL_COPYACL 
OBFC 00000 ENTRY ACL COPYACL, Save R2,R3,R4,R5,R6,R7,RB,R9,= 
58 00006 CF 9€ 0000 MOVAB ALL OC PAGED, R11 
5E FEOO cE 9E 0000 MOVAB =-512(SP), SP 
E 04 0000C CLRL. = =( SP) 
7E 08 ac 00000080 af C1 OO00E ADDL3 #128, NEW_FILE_FCB, -(SP) 
00006 CF 2 FB 9901 CALLS #2, ACL_DELETEACL 
50 04 AC 00 0001C MOVL OLD FILE. CB, RO 
50 0080 CO 9E 000 g MOVAB 128TRO),"R 
50 60 D1 000 CMPL = (RO), RO 
14 13 0028 BEQL §©_-2$ 
0c AC D5 0002A TSTL OPTION 
33 12 0002D BNEQ 4$ 
57 60 D0 0002F MOVL (RO), ACL_POINTER 
50 04 Ac 00000080 8F C1 900 2 1$ ADDL3 #128, OLD-FILE FCB, RO 
50 57 01 00038 CMPL ACL. POINTER, RO 
03 12 OOO3E 28 BNEQ 3$ 
OOCF 31 0004 BRW 14$ 
07 bp 0043 3$ PUSHL 4&7 
7E 08 A7 3C 0004 MOVZWL 8(ACL POINTER) . -(SP) 
6B 98 FB 00049 CALLS #2, A ACLOC OP AGED 
5 p 4C MOVL 
69 67 08 A? 4f MOVC3 Beach POINTER) (ACL_POINTER), (NEW_ACL) 
0 AC p 4 MOVL NEW FILE_FC 
0084 b9 3 3 8 INSQUE (NE@_ACLY, a132(RO) 
5 67 D MOVL (ACL POINTER) ate _POINTER 
0 11 BRB 1$ 
57 p0 4$ MOVL RO, ACL_POINTER 
§ D CLRL ACL_LENGTH 
57 67 00 00067 5$ MOVL (ACC POINTER), ACL_POINTER 
4 Oc AZ 9E 0006A MOVAB 12(R7), ACE POINTER 
9 08 A7 ¢ 6$ MOVZWL 8(ACL_POINTER), R 
2 C ADDL2 ACL_POINTER, RO 
0 8 D1 7 CMPL ACE“POINTER, R 
‘ IE 7 BGEQU 1 
06 03 AB €E9 OOO7A BLBC 3(ACE_POINTER), 7$ 


3s. 


aiaiuiabadatad adad 
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ACLCNTRL 18-56 -1984 2:49:14 AX-11 Bliss-32 V4.0-74 Page 
64-000 y2ree=}SRs F3:38:h3 HANG SB lRer de 8538 eg 
01 0c ac D 7 CMPL OPTION, #1 ; 
99 1 BEQL ; : 
4E 03 =A E 7$: BBS #3, 3(ACE_POINTER), 11$ : 
0 0c ts b} 9 CPL OPTION, #2 : 
8 Bh BSE OH ORUBR A eauaTEPgg : 
00000200 =F b} 38 Aen as TS ; : 
5 9C BLEQ : 
pp 9 PUSHL # : 
OC Ab 9F OOOA PUSHAB 12(ACL_LENGTH) : 
68 F 0A CALLS #2, ALCOC_PAGED : 
p ne MOVL. RO, NEW_ACL F 
oc Ad gE 6 O0A MOVC Act LENGTH ACL_AREA, 12(NEW_ACL) : 
08 a9 é OC Al 000A ADDW3 #12, ACL_LENGTH, 8(NEW_ACL) : 
50 08 AC BO 008 MOVL NEW FILE-FCB, RO ; 
0084 00 69 — 0008 INSQUE (NEQ_ACLY, a132(RO) : 
6 D4 b00BC CLRL oA NGTH : 
50 68 9A OOBE 9$ MOVZBL (ACE POINTER), RO : 
6E46 68 28 000C MOVC3 RO, TACE_POINTER), ACL_AREACACL_LENGTH] : 
01 0c AC D1 000C6 CMPL OPTION, #1 : 
05 12 OOOCA BNEQ 10$ : 
03 AE46 01 8A O00CC BICB2 #1, ACL_AREA+3CACL_LENGTH] : 
50 68 9A 90001 10$ MOVZBL (ACE POINTER), RO ; 
56 50 CO 000D4 ADDL2 RO, ACL_LENGTH : 
50 68 9A 00007 11$:  MOVZBL (ACE POINTER), RO : 
58 50 CO OO0DA ADDL2 RO, ACE_POINTER ; 
a 11 000DD BRB 6 : 
50 04 ac 00000080 8F C1 O00D 12$:  ADDL3 #128, OLD_FILE_FCB, RO : 
50 67 01 OO0E8 CMPL  (ACL_ POINTER), -RO : 
03 13 OOEB BEQL 13$ ; 
FF77 31 OOOED BRW 5$ : 
56 DS OOF 13$ TSTL  ACL_LENGTH : 
Ie 15 000F BLEQ 43=s«14S ; 
07 DD 000r6 PUSHL #7 : 
0c Ab OF 000F6 PUSHAB 12(ACL_LENGTH) : 
68 92 FB OO0F9 CALLS #2, ALCOC_PAGED F 
9 p OOFC MOVL. RO, NEW_ACL F 
oc ag 6E 56 OOFF MOVC Act LENGTH ACL_AREA, 12(NEW_ACL) : 
08 Ag 56 OC Al 00104 ADDWS #107 ACL_LENGTH, 8(NEW_ACL) ; 
50 08 AC 0 00109 MOVL NEW FILE-FCB, R : 
0084 p60 69 3 0100 INSQUE (NEQ@ ACLY, a132(RO) ; 
01 OD Orig 148 MOVL #1, RO 3 
04 0011 RET : 


3; Routine Size: 278 bytes, Routine Base: S$CODES + 0418 


ay 


pat -1984 14 AX-11 Bliss-32 V4.0=-74 
127825-1984 13: $9: 07 FIIX. sk chat CLCNTRL.B32; 


ROUTINE BUILD_HANDLER (SIGNAL, MECHANISM) : NOVALUE = 


ao 


! ae the signal code. The gry perates tele ones “> SS$_UNWIND, which 


: 7 1719 ~«#1 

s 735 1720 1 

: 1788 1i* 

es. 1723 1 | FUNCTIONAL DESCRIPTION: 

Tea 17246 1! 

: 740 1725 1! This routine is the main level condition handler. It stores the 
3; 7461 17 $ 1! condition value (FCP error code) in the user status block, unwinds 
3 i iy ! and returns from the function that was executing. 

: 744 17 § 1 | CALLING SEQUENCE: 

3 eer Vy , : BUILD_HANDLER (ARG1, ARG2) 

: ro 17 : 1 i INPUT PARAMETERS: 

; 748 17 1! ARG1: address of signal array 

; 4 4 : : ARG? address of mechanism array 

: 751 1736 1°! IMPLICIT INPUTS: 

Sh: Tee | 8 | pate 

: 754 1739 1 | OUTPUT PARAMETERS: 

: Fe 1pey 1 i — 

: Fa 1248 1 ' IMPLICIT OUTPUTS: 

3 238 to ! BUILD_STATUS: receives signal code 

: 760 1745 1! ROUTINE VALUE: 

UN) Seas ere 

: 76 1748 1 | SIDE EFFECTS: 

: 764 1749 1! The stack is unwound to the caller of the ACL builder with the 
3; 765 1750 1! error status posted in RO. 

: 266 1751 1! 

: 76 1726 1 !-- 

3; 768 17 1 

: 769 1754 BEGIN 

: 70 178 P 

We 1757 SIGNAL : REF BBLOCK, ! signal array arg 

: Ae 1738 MECHANISM : REF BBLOCK; i mechanism array arg 

: 775 1760 2 EXTERNAL ROYTINE 

3: 776 1782 SSUNWIND : ADDRESSING_MODE (ABSOLUTE); 

: 17 ' 

; 779 1764 ! is ignored, and SS$_CMODUSER e error status is the 16 bit CHMU code. 
: 780 1765 ' If the error value Ts non-zero, store it in the Sened RO (zero means 
3; 781 1708 i just exit). Unwind to the caller of the ACL builder and return, causing 
3 § rer the invoked function to return with failure to the dispatcher. 

: 7 1769 

3 TR 1790 IF .SIGNALCCHFSL ~$16_NANE) EQL SS$. brottn THEN RETURN; 

: 786 1771 IF .SIGNALCCHFSL-SIG-NAME) NEQ SS$°C SER 

: 8 1778 THEN BUG_CHECK (ONXSTGNAL, FATAL, 8 eet signal name in ACP"); 

: 789 1774 2 IF .SIGNALCCHFSL S16_ ARG1) NEQ 0 

; 790 1775 THEN MECHANI SMCCRF “ACH_ SAVRO] = .SIGNALCCHFSL_SIG_ARG1); 


ry 


Seer eeeeses 
Sa 
SARS 


: Name 
: SCODES 


File 


; Routine Size: 


-$255$DUA28: CSYSLIBILIB.L32;1 


12 
18.56 
14-Se 


p=1986 42:40:07 


F11X.SRC 


17 
1177 SYSSUNWIND (0, 0); 
1778 RETURN; 
158 END; ! end of routine BUILD_HANDLER 
eEXTRN SYSSUNWIND, BUGS_UNXSIGNAL 
0000 00000 BUILD_HANDLER: 
«WORD Save nothing 
50 04 AC 00 0000 MOVL SIGNAL, 8 
00000920 = =8F 04 ad O01 4 CMPL 4(RO), #2336 
29 «(13 st BEQL 3$ 
00000424 =8F 04 AO D1 0001 CMPL 4(RO), #1060 
04 13 00018 BEQL 1$ 
fe OO1A BUGW 
0000* 0001C «WORD <BUG$_UNXSIGNAL !4> 
51 04 AC DO QOOIE 1$ MOVL SiGMAL R1 
08 Ai 05 000 TSTL (R1) 
09 13 000 BEQL 2s 
50 08 ac odO0 898 7 MOVL MECHANISM, RO 
oc Ad 08 Al bo 0028 MOVL B8(R1), 12¢RO) 
7 C 00050 2$: CLRQ -(S 
00000000G 9F 02 FB 00032 CALLS #2, @#SYSSUNWIND 
04 00039 3$: RET 
58 bytes, Routine Base: S$CODE$ + 0531 
1788 1 END 
pb 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
1387 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
erecoece ya Ols -ee----- Page Processing 
Total Loaded Percent Mapped Time 
18619 63 0 1000 00:02.0 


AX-11 Oh leer e ne et oe 
ACLCNTRL.B32; 


1B-Seortgee @}eggs] yet! BLdsen32.v4.05749 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$S:ACLCNTRL/OBJ=OBJS:ACLCNTRL MSRC$:ACLCNTRL/UPDATE=(ENi!$:ACLCNTRL) 


; giz Ag! 1387 Sire + 0 data bytes 
; ethan y Time: 

3; Lines/CPU Min: 2i¢e 

F} Newey Ak tigi 46714 

; ory Used: 356 $ peges 

3 os ation Complete 
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